0 POKE53265,PEEK(53265)AND239
1 DIMW$(300):POKE53281,0:POKE53280,0:POKE650,128:
2 FORI=1TO15:POKE211,0:POKE214,I:SYS58640
3 PRINT"[147][156][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174]"
4 POKE211,0:POKE214,16:SYS58640:PRINT"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189]"
5 GOTO10
7 POKE53265,PEEK(53265)OR16:RETURN
10 FORR=1TO45:READA$:W$(R)=A$:NEXT
11 POKE211,0:POKE214,17:SYS58640:
12 PRINT" [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201] ";:U$="MAG"
13 PRINT"[213][203][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [202][201]";
14 PRINT"[194][155]    [176][195][195] [176][195][195][174] [176][174] [174] [195][195][178][195] [176][195][195][195][174] [195][174] [176][195]    [194]";
15 PRINT"[194]    [194]   [194]  [194] [194][173][195][189]   [194]  [171][195][195][195][179]  [171][195][179]     [194]";
16 PRINT"[194][155]    [173][195][195] [173][195][195][189] [173]      [173]  [173]   [189] [195][189] [173][195]    [194]";
17 PRINT"[202][201][151]  <[195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]>  [213][203]";
18 PRINT" [202][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][203]";:GOSUB7
20 X=0:Y=-1
21 FORI=1TO15:POKE211,1:POKE214,I:SYS58640:PRINT"[154]"W$(X+I):NEXT:GOTO22
22 GETA$:
23 IFA$=CHR$(13)THEN50
24 IF A$="."ANDX<45THENX=X+15:GOTO21
25 IF A$=","ANDX>0THENX=X-15:GOTO21
26 GOTO22
50 POKE828,0:PRINTCHR$(147)CHR$(17):PRINT"[144]LOAD"CHR$(34)"M1*"CHR$(34)",8"
51 PRINTCHR$(17)CHR$(17)CHR$(17)CHR$(17)"RUN"
52 POKE631,13:POKE632,13:POKE198,2
53 PRINTCHR$(19);:END
100 DATA"[158]> BRAINDEATH                          "
101 DATA"MICHAEL MATERN                        "
102 DATA"DEUTENHAUSENER STR. 7                 "
103 DATA"82362 WEILHEIM                        "
104 DATA"TEL. 0881 4179784                     "
105 DATA"                                      "
106 DATA"[158]> CHAMP                               "
107 DATA"MARC KAYSER                           "
108 DATA"WITTEKAMP 9                           "
109 DATA"30177 HANNOVER                        "
110 DATA"                                      "
111 DATA"[158]> DIABLO & PUNICA                     "
112 DATA"SASCHA KLEMMSTEIN/MONIKA NEUBAUER     "
113 DATA"GLASCHKESTR. 11                       "
114 DATA"10365 BERLIN                          "
115 DATA"[158]> DOC OF DESIRE                       "
116 DATA"STEFAN SCHAUF                         "
117 DATA"ISTRUPER STR. 65                      "
118 DATA"32825 BLOMBERG                        "
119 DATA"TEL. 0523597575                       "
120 DATA"                                      "
121 DATA"[158]> FAAYD                               "
122 DATA"ANDY FRANK                            "
123 DATA"PUESCHOWER STR. 34                    "
124 DATA"18239 HEILIGENHAGEN                   "
125 DATA"                                      "
126 DATA"                                       "
127 DATA"                                      "
128 DATA"                                      "
129 DATA"                                       "
130 DATA"[158]> HAMMERMAN                           "
131 DATA"MATTHIAS KINDERVATER                  "
132 DATA"WERNERSTRASSE 51                      "
133 DATA"IN 12621 BERLIN                       "
134 DATA"TEL. 5628348                          "
135 DATA"                                       "
136 DATA"[158]> LOST BRAIN                         "
137 DATA"MARCUS HINZMANN                       "
138 DATA"LEHNESTRASSE 38                       "
139 DATA"IN 12621 BERLIN                       "
140 DATA"TEL. 030 56498321                     "
141 DATA"                                      "
142 DATA"                                      "
143 DATA"                                      "
144 DATA"                                      "
145 DATA"                                      "
0